<%@ LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
'///////////////////////////////////////////////////////////////////////////////
'// 插件应用:    Z-Blog 1.8 Arwen
'// 插件制作:    haphic(http://haphic.esloy.com)
'// 备    注:    DeepEyes 参数设定
'// 最后修改：   2008-2-9
'// 最后版本:    0.4
'///////////////////////////////////////////////////////////////////////////////
%>
<% Option Explicit %>
<% On Error Resume Next %>
<% Response.Charset="UTF-8" %>
<% Response.Buffer=True %>
<!-- #include file="../../../c_option.asp" -->
<!-- #include file="../../../function/c_function.asp" -->
<!-- #include file="../../../function/c_function_md5.asp" -->
<!-- #include file="../../../function/c_system_lib.asp" -->
<!-- #include file="../../../function/c_system_base.asp" -->
<!-- #include file="../../../function/c_system_plugin.asp" -->
<!-- #include file="../../../function/c_system_event.asp" -->
<!-- #include file="../../../plugin/p_config.asp" -->
<%
Call System_Initialize()

'检查是否启用
If Not LCase(ZC_BLOG_THEME)=LCase("Couple") Then Call ShowError(48) 

Dim strDate : strDate=Request.QueryString("date")
Call CheckParameter(strDate,"sql",-1)
strDate=FilterSQL(strDate)


Dim strOutPut

If strDate<>"-1" Then

	strOutPut = LoadFromFile(BlogPath & "/THEMES/"& ZC_BLOG_THEME &"/PLUGIN/CACHE/Date-"& strDate &".html","utf-8")

	If strOutPut="" Then

		strOutPut=Couple_MakeCalendar(strDate)
		strOutPut=TransferHTML(strOutPut,"[no-asp]")

		If strOutPut<>"" Then

			Call SaveToFile(BlogPath & "/THEMES/"& ZC_BLOG_THEME &"/PLUGIN/CACHE/Date-"& strDate &".html",strOutPut,"utf-8",False)

		End If

	End If

End If


If strOutPut="" Then strOutPut="<p>Data Error or No Data!</p>"


Response.Write strOutPut

Call System_Terminate()

If Err.Number<>0 then
  Call ShowError(0)
End If
%>

